home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / gforms / demo1.pas < prev    next >
Pascal/Delphi Source File  |  1996-09-15  |  1KB  |  59 lines
  1. unit Demo1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, GFormSav;
  8.  
  9. type
  10.   TMDIParent = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     FormSaver1: TFormSaver;
  13.     FileMenu: TMenuItem;
  14.     FileNew: TMenuItem;
  15.     FileExit: TMenuItem;
  16.     WindowMenu: TMenuItem;
  17.     WindowTile: TMenuItem;
  18.     WindowCascade: TMenuItem;
  19.     procedure FileNewClick(Sender: TObject);
  20.     procedure FileExitClick(Sender: TObject);
  21.     procedure WindowTileClick(Sender: TObject);
  22.     procedure WindowCascadeClick(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   MDIParent: TMDIParent;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. Uses Demo2;
  37.  
  38. procedure TMDIParent.FileNewClick(Sender: TObject);
  39. begin
  40.   TMDIChild.Create (Application);
  41. end;
  42.  
  43. procedure TMDIParent.FileExitClick(Sender: TObject);
  44. begin
  45.   Close;
  46. end;
  47.  
  48. procedure TMDIParent.WindowTileClick(Sender: TObject);
  49. begin
  50.   Tile;
  51. end;
  52.  
  53. procedure TMDIParent.WindowCascadeClick(Sender: TObject);
  54. begin
  55.   Cascade;
  56. end;
  57.  
  58. end.
  59.